home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 4 (Reseller) / Apple Ref. & Pres. Lib.v4.0.iso / 2-Graphics / Apple Graphics Source / Apple Graphics Source 2.3 / Apple Graphics Source 2.3 / background_3618.txt < prev    next >
Text File  |  1990-03-28  |  4KB  |  187 lines
  1. -- background: 3618 from stack: in.3
  2. -- bmap block id: 4016
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: Title Background
  6. ----- HyperTalk script -----
  7. on adminElements boolean
  8.   set cursor to watch
  9.   lock screen
  10.   cdFldsVisible boolean
  11.   cdBtnsVisible boolean
  12.   if boolean then
  13.     bgBtnsVisible false
  14.     bgFldsVisible false
  15.     show bg fld "title"
  16.     show bg fld "directions"
  17.     show bg btn "blanket"
  18.     send mouseUp to cd btn "keyword index"
  19.     unlock screen
  20.     put "barn door open" into theEffect
  21.   else
  22.     send "toggleAbout true" to this cd
  23.     put "barn door close" into theEffect
  24.   end if
  25.   unlock screen with visual effect theEffect
  26. end adminElements
  27.  
  28. on cdFldsVisible boolean
  29.   repeat with i = 1 to number of cd flds
  30.     set the visible of cd fld i to boolean
  31.   end repeat
  32. end cdFldsVisible
  33.  
  34. on cdBtnsVisible boolean
  35.   repeat with i = 1 to number of cd btns
  36.     set the visible of cd btn i to boolean
  37.   end repeat
  38. end cdBtnsVisible
  39.  
  40. on bgFldsVisible boolean
  41.   repeat with i = 1 to number of bg flds
  42.     set the visible of bg fld i to boolean
  43.   end repeat
  44. end bgFldsVisible
  45.  
  46. on bgBtnsVisible boolean
  47.   repeat with i = 1 to number of bg btns
  48.     set the visible of bg btn i to boolean
  49.   end repeat
  50. end bgBtnsVisible
  51.  
  52.  
  53. -- part 3 (field)
  54. -- low flags: 01
  55. -- high flags: 0000
  56. -- rect: left=0 top=52 right=77 bottom=512
  57. -- title width / last selected line: 0
  58. -- icon id / first selected line: 0 / 0
  59. -- text alignment: 1
  60. -- font id: 156
  61. -- text size: 16
  62. -- style flags: 0
  63. -- line height: 21
  64. -- part name: Directions
  65.  
  66.  
  67. -- part 8 (button)
  68. -- low flags: 00
  69. -- high flags: 0002
  70. -- rect: left=5 top=83 right=338 bottom=507
  71. -- title width / last selected line: 0
  72. -- icon id / first selected line: 0 / 0
  73. -- text alignment: 1
  74. -- font id: 156
  75. -- text size: 16
  76. -- style flags: 0
  77. -- line height: 21
  78. -- part name: blanket
  79. ----- HyperTalk script -----
  80. on mouseUp
  81.   doAbout false
  82. end mouseUp
  83.  
  84.  
  85.  
  86. -- part 17 (button)
  87. -- low flags: 00
  88. -- high flags: 4002
  89. -- rect: left=7 top=85 right=106 bottom=505
  90. -- title width / last selected line: 0
  91. -- icon id / first selected line: 0 / 0
  92. -- text alignment: 0
  93. -- font id: 156
  94. -- text size: 13
  95. -- style flags: 0
  96. -- line height: 17
  97. -- part name: Heading
  98.  
  99.  
  100. -- part 18 (field)
  101. -- low flags: 01
  102. -- high flags: 0000
  103. -- rect: left=11 top=85 right=108 bottom=505
  104. -- title width / last selected line: 0
  105. -- icon id / first selected line: 0 / 0
  106. -- text alignment: 0
  107. -- font id: 156
  108. -- text size: 13
  109. -- style flags: 2048
  110. -- line height: 17
  111. -- part name: Heading
  112.  
  113.  
  114. -- part 19 (field)
  115. -- low flags: 81
  116. -- high flags: 2000
  117. -- rect: left=5 top=105 right=338 bottom=506
  118. -- title width / last selected line: 0
  119. -- icon id / first selected line: 0 / 0
  120. -- text alignment: 0
  121. -- font id: 156
  122. -- text size: 13
  123. -- style flags: 0
  124. -- line height: 17
  125. -- part name: Legal Notice
  126.  
  127.  
  128. -- part 21 (field)
  129. -- low flags: 01
  130. -- high flags: 2000
  131. -- rect: left=5 top=105 right=340 bottom=506
  132. -- title width / last selected line: 0
  133. -- icon id / first selected line: 0 / 0
  134. -- text alignment: 0
  135. -- font id: 156
  136. -- text size: 13
  137. -- style flags: 0
  138. -- line height: 17
  139. -- part name: About
  140.  
  141.  
  142. -- part 23 (button)
  143. -- low flags: 80
  144. -- high flags: 0002
  145. -- rect: left=341 top=308 right=332 bottom=472
  146. -- title width / last selected line: 0
  147. -- icon id / first selected line: 0 / 0
  148. -- text alignment: 1
  149. -- font id: 0
  150. -- text size: 12
  151. -- style flags: 0
  152. -- line height: 16
  153. -- part name: Toggle
  154.  
  155.  
  156. -- part 20 (field)
  157. -- low flags: 81
  158. -- high flags: 0002
  159. -- rect: left=341 top=308 right=331 bottom=472
  160. -- title width / last selected line: 0
  161. -- icon id / first selected line: 0 / 0
  162. -- text alignment: 1
  163. -- font id: 156
  164. -- text size: 16
  165. -- style flags: 0
  166. -- line height: 21
  167. -- part name: Toggle
  168. ----- HyperTalk script -----
  169. on mouseUp
  170.   toggleAbout (not the visible of bg fld "about")
  171. end mouseUp
  172.  
  173.  
  174.  
  175. -- part 6 (field)
  176. -- low flags: 01
  177. -- high flags: 0000
  178. -- rect: left=0 top=21 right=56 bottom=512
  179. -- title width / last selected line: 0
  180. -- icon id / first selected line: 0 / 0
  181. -- text alignment: 1
  182. -- font id: 158
  183. -- text size: 24
  184. -- style flags: 0
  185. -- line height: 32
  186. -- part name: Title
  187.